home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / S-Sh / ScrollBar.cpt / ScrollBar Stack / card_2897.txt < prev    next >
Text File  |  1990-04-17  |  5KB  |  174 lines
  1. -- card: 2897 from stack: in
  2. -- bmap block id: 2533
  3. -- flags: 0000
  4. -- background id: 2657
  5. -- name: 
  6.  
  7.  
  8. -- part 24 (button)
  9. -- low flags: 00
  10. -- high flags: 0000
  11. -- rect: left=459 top=234 right=276 bottom=497
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 12392 / 12392
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: 
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   answer "Install ScrollBar XFCN into a stack?" with "No" or "Yes"
  23.   if it <> "Yes" then exit mouseUp
  24.   put StandardFile("get:Install", "STAK") into tofile
  25.   if tofile is empty then
  26.     answer "Installation cancelled" with "OK"
  27.     exit mouseUp
  28.   end if
  29.   DoInstall tofile
  30. end mouseUp
  31.  
  32. on DoInstall tofile
  33.   global External_Error
  34.   put word 2 of the long name of this stack into fromfile
  35.   delete last char of fromfile
  36.   delete first char of fromfile
  37.   put resname into resname2 -- dest same name
  38.   ResHandle "copy", fromfile, tofile, "XFCN", "ScrollBar", "ScrollBar"
  39.   if "Ok" is in External_Error then
  40.     answer "Installation complete" with "OK"
  41.   else
  42.     answer "Installation failed" with "OK"
  43.   end if
  44. end DoInstall
  45.  
  46.  
  47. -- part 8 (field)
  48. -- low flags: 01
  49. -- high flags: 0002
  50. -- rect: left=15 top=208 right=327 bottom=162
  51. -- title width / last selected line: 0
  52. -- icon id / first selected line: 0 / 0
  53. -- text alignment: 1
  54. -- font id: 33
  55. -- text size: 10
  56. -- style flags: 0
  57. -- line height: 13
  58. -- part name: 
  59.  
  60.  
  61. -- part 7 (field)
  62. -- low flags: 01
  63. -- high flags: 0000
  64. -- rect: left=185 top=234 right=289 bottom=456
  65. -- title width / last selected line: 0
  66. -- icon id / first selected line: 0 / 0
  67. -- text alignment: 1
  68. -- font id: 33
  69. -- text size: 10
  70. -- style flags: 0
  71. -- line height: 13
  72. -- part name: 
  73.  
  74.  
  75. -- part 9 (field)
  76. -- low flags: 01
  77. -- high flags: 0000
  78. -- rect: left=20 top=57 right=186 bottom=491
  79. -- title width / last selected line: 0
  80. -- icon id / first selected line: 0 / 0
  81. -- text alignment: 0
  82. -- font id: 33
  83. -- text size: 14
  84. -- style flags: 0
  85. -- line height: 18
  86. -- part name: 
  87.  
  88.  
  89. -- part 12 (field)
  90. -- low flags: 01
  91. -- high flags: 0004
  92. -- rect: left=86 top=188 right=206 bottom=431
  93. -- title width / last selected line: 0
  94. -- icon id / first selected line: 0 / 0
  95. -- text alignment: 1
  96. -- font id: 33
  97. -- text size: 10
  98. -- style flags: 0
  99. -- line height: 13
  100. -- part name: 
  101.  
  102.  
  103. -- part 22 (button)
  104. -- low flags: 00
  105. -- high flags: 0000
  106. -- rect: left=207 top=232 right=248 bottom=303
  107. -- title width / last selected line: 0
  108. -- icon id / first selected line: 0 / 0
  109. -- text alignment: 1
  110. -- font id: 0
  111. -- text size: 12
  112. -- style flags: 0
  113. -- line height: 16
  114. -- part name: 
  115. ----- HyperTalk script -----
  116. on mouseUp
  117.   popupField "cd fld XCMDs"
  118. end mouseUp
  119.  
  120.  
  121.  
  122. -- part 23 (field)
  123. -- low flags: 81
  124. -- high flags: 0001
  125. -- rect: left=110 top=59 right=297 bottom=394
  126. -- title width / last selected line: 0
  127. -- icon id / first selected line: 0 / 0
  128. -- text alignment: 0
  129. -- font id: 33
  130. -- text size: 10
  131. -- style flags: 0
  132. -- line height: 13
  133. -- part name: XCMDs
  134.  
  135.  
  136. -- part contents for card part 7
  137. ----- text -----
  138. All XCMDs and XFCNs ¬© Copyright, Nigel Perry 1990. Portions copyright Symantec Inc.
  139. Free for personal use, no commercial or profit making (including ShareWare) use without permission.
  140.  
  141. -- part contents for card part 8
  142. ----- text -----
  143. Nigel Perry
  144. Department of Computing
  145. Imperial College of Science,
  146. Technology and Medicine
  147. 180, Queens Gate
  148. London SW7
  149. England
  150.  
  151. Email: np@doc.ic.ac.uk
  152.  
  153. -- part contents for card part 9
  154. ----- text -----
  155. The ScrollBar XFCN implements scroll bar controls for HyperCard. ScrollBar() must be invoked from a button/field script and will take its size from the object. After the scroll bar value has been changed ScrollBar() will optionally paint an updated picture of the bar onto the card or background as appropriate. ScrollBar() will also optionally send its parent object a message while it is tracking the scroll bar thumb.
  156.  
  157. -- part contents for card part 12
  158. ----- text -----
  159. Thanks to Maurice Volaski and his ScrollControl III for the original idea
  160.  
  161. -- part contents for card part 23
  162. ----- text -----
  163. As well as ScrollBar this stack contains:
  164.  
  165. PopupField XCMD: This "pops" fields into windows which exist until a mouse click. It is being used to show you this. For more details see my stack popupfield-setcursor.
  166.  
  167. VolumeLevel XFCN: Allows you to read and alter the volume level. Comes from my talker stack.
  168.  
  169. StandardFile XFCN: Provides you with myriads of ways of calling the standard file package. See the standard-file stack.
  170.  
  171. ResHandle XFCN: Resource handling functions for HyperCard. The heart of the resource-library stack.
  172.  
  173. All the above stacks are available on Sumex.
  174. (Click to continue)